perm filename CAMJAM.SAI[PIX,HPM] blob sn#201016 filedate 1976-02-09 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "CAMJAM"
C00003 ENDMK
CāŠ—;
BEGIN "CAMJAM"
REQUIRE "PIXHDR.SAI[VIS,HPM]" SOURCE_FILE;

WHILE TRUE DO
   BEGIN
   EXTERNAL INTEGER PROCEDURE TVRAW(INTEGER CAM,YEDG,XEDG;
                             REFERENCE INTEGER PIC;
                             INTEGER BCLIP,TCLIP,NTRY);
   INTEGER ARRAY T[0:PIXDIM(200,200,4)];

   MAKPIX(200,200,4,T[0]);

   WHILE TRUE DO TVRAW(2,10,2,T[0],1,7,10);

   END;

END;